home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / merlin / rexx / guildertoeuro.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-12  |  788b  |  44 lines
  1. /* RUN "rx MCP:rexx/GuilderToEuro.rexx %n"   */
  2.  
  3. Arg node_number                         /* node we were run from */
  4. Host = 'MCPREXX.'node_number            /* the Trion MCP Arexx port */
  5. Options results
  6. Address value host
  7. options failat 15
  8.  
  9.  
  10. /* say "node "node_number */
  11. if node_number = "" then do
  12.    say "error .. rexx script not started with %n on command line"
  13.    exit 1
  14. end
  15.  
  16.  
  17. ReadString "ID 11"
  18. Guilders = result
  19.  
  20. if Guilders < 0 then do
  21.    Guilders = 0
  22.    WriteString "11" Guilders
  23. end
  24.  
  25.  
  26. /* say "guilders:" Guilders */
  27.  
  28. Euros = Trunc( 0.5 + 100 * Guilders / 2.20371 ) / 100
  29.  
  30. /* say "euros:" Euros */
  31.  
  32. /* WriteString '12, Euros' */
  33. WriteString "ID 12 STRING " Euros
  34.  
  35.  
  36.  
  37. exit 0                         /* einde programma */
  38.  
  39.  
  40.  
  41. test:          /*  een functie: 'call test' */
  42. return 0
  43.  
  44.